(mail-font-lock-keywords): Match multiline In-Reply-To and X-*.

diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el
index 00107a004cb84c8c4d8076c1df995e497bb34f90..a7a65302efdf5aab26306ae6cea3b6d2cae6fb98 100644 (file)
--- a/lisp/mail/sendmail.el
+++ b/lisp/mail/sendmail.el
@@ -376,7 +376,7 @@ actually occur.")
               (beginning-of-line) (end-of-line)
               (2 font-lock-constant-face nil t)
               (4 font-lock-comment-face nil t)))
-           '("^\\(X-[A-Za-z0-9-]+\\|In-reply-to\\):.*"
+           '("^\\(X-[A-Za-z0-9-]+\\|In-reply-to\\):.*\\(\n[ \t]+.*\\)*$"
              . font-lock-string-face))))
   "Additional expressions to highlight in Mail mode.")